home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
filutil
/
pa_st270.zip
/
EXAMPLE8.POM
< prev
next >
Wrap
Text File
|
1995-02-01
|
1KB
|
54 lines
;
; NOTE: A quick-reference summary of POM commands appears in EXAMPLE4.POM
;
;-----------------------------------------------------------------------------
;
; This file is similar to EXAMPLE3.POM, but it uses the LOOKUP command.
;
;-----------------------------------------------------------------------------
;
MINLEN = "1"
;
; Remove everything before and after the headings
;
IF $FLINE[ 1 11] = "-----------" THEN HDRCNTR = HDRCNTR+
IGNORE HDRCNTR = ""
IGNORE HDRCNTR = "3"
IGNORE HDRCNTR = "4"
IGNORE $FLINE[ 34 41] = "PHONUMBR"
IGNORE $FLINE[ 1 11] = "-----------"
IGNORE FINISHED = "Y"
IF HDRCNTR = "4" THEN FINISHED = "Y"
;
; Set page headings, with a top margin of one line
;
PAGELEN "55" "Y"
OUTHDG ""
OUTHDG "-------------------------------- -------- -------------"
OUTHDG "NAME OF BBS PHONENUM TYPE OF MODEM"
OUTHDG "-------------------------------- -------- -------------"
;
; Get modem type
;
SET type = $FLINE[43 44]
;
; Ignore the slow ones
;
IGNORE type = "30"
IGNORE type = "12"
;
; Set up look-up file
;
LOOKFILE "EXAMPLE8.TBL"
LOOKSPEC "Y" "Y" "Y"
LOOKCOLS "7" "8" "20" "255"
;
; Look up modem speed description
;
LOOKUP speed = type
;
; Output
;
SET data = $FLINE[1 41]
OUTEND |{data} {speed}